home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff2.arc / FILLCHAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-11-05  |  971 b   |  41 lines
  1.  
  2.  
  3. program DemoFillChar;
  4. {
  5.        This program demonstrates how the built-in procedure FillChar
  6.        works
  7. }
  8. var
  9.   Seg1:    Integer;
  10.   Ofs1:    Integer;
  11.   Count:   Integer;
  12.   OutWord: Integer;
  13.   Num:     Integer;
  14.   Var1:    Integer;
  15.   Value:   Char;
  16.  
  17. begin
  18.   ClrScr;
  19.   GotoXY(20,5);
  20.   Write('enter Value for starting address');
  21.   ReadLn(Var1);
  22.   Seg1 := Seg(Var1);
  23.   Ofs1 := Ofs(Var1);
  24.   WriteLn;
  25.   WriteLn('This variable is at segment: ',Seg1,' with an offset of: ',Ofs1);
  26.   WriteLn;
  27.   Write('Now put in a Value(single char) that you wish memory loaded with: ');
  28.   ReadLn(Value);
  29.   Write('Put in how many words you want filled: ');
  30.   ReadLn(Num);
  31.   FillChar(Var1,Num,Value);
  32.   ClrScr;
  33.   WriteLn('Now we print our memory starting with ',Seg1,':',Ofs1);
  34.   for Count := 1 to Num do begin
  35.     OutWord := Mem[Seg1:Ofs1];
  36.     WriteLn(Seg1,':',Ofs1,' has value ',OutWord);
  37.     Ofs1 := Ofs1 + 1;
  38.   end
  39. end. { of program DemoFillChar }
  40.  
  41.